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++ 
facility: 


VAX/VMS PL1 runtime Library. 
abstract: 


This module contains the pl1 runtime routine for initializing 
the runtime system to perform a get or put string. 


author: c. spitz 4-oct-79 
modified: 


1-002 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. 
1-003 Chip Nylander 08-August-1983 


Initialize the parent pointer with FP when stream block 
allocated. 
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1-003 : eases OF eo te UPLIRTL. SRCIPLISTRING.MAR: 1 
000 58 ; 
0090 59 $Sdeffcb idefine file control block 
009 60 $defstk sdefine stack frame offsets 
0000 61 $defstr sdefine stream block offsets 
0000 6¢ $defdat define operand node data types 
0000 6 $defplirtcons idefine pli run time constants 
0000 64 
0000 65 ; . 
0000 66 ; local definitions 
33 
0000 69 rtshare ;sharable 


—_———_-- -------- - I ———— —_ = 


D2 
| PLISSTRINGIO = pli runtime get and put string i at ath 02:2 
6=SEP=1984 11:4 


:33 AX/VMS M 4- p 
ert $y? Y S Macro V04-00 age 


PLIRTL.SRCIJPLISTRING.MAR; 1 


++ 
pli$getstrng_r6 -=- get elements from a string 


functional description: 


This routine initializes the runtime system to perform a GET STRING 
statement. 


the get statement is compiled into code that sets up the parameters to 
this rout..e, and then jsb's to it. this routine c-*ates a file control 
block for the string, and initializes the buffer ,..nters to point to the 
string. we then allocate and initialize a pl control block. 

following the jsb in the inline code, the compiler has generated code 
that stores the address and size of the next element in r0 and ri. the 
inline code then jsb's to the routine in pli$getedi or pli$getlis modules 
that processes elements of that data type. 


inputs: 
(sp) - address of first element inline code 
r0 - address of string (must be char var) | s 
; a. - address of the compiled format(get edit), or 0 (get List) 
outputs: 
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9 , - address of the file control block ‘or this character string 
95 : rll - address of the stream block for tais get statement 
96 ; side effects: 
4 rO-r6 are destroyed 
. ea 
100 A TegeseTrns. Ors rie 
54 SE 00 101 mov sp.r4 sset get indicator 
02. 11 3 ©6102 brb stringcom scont in common 
3 100 i ‘pis 6 
; plisputstrng_r 
7. 193 ; oe 
2 138 3 functional description: 
; +4 3; This routine initializes the runtime system to put elements to a string. 
5 110 ; the put statement is tenpj toe into code that sets up the parameters to 
5 111 ; this routine and then jsb's to it. this routine creates a file control 
5 112 ; block for the string, and initializes the 
5 113 ; inputs: : tip, 
> 114% (sp) - address of first element inline code 
> 3133 r0 - address of string (char or vcha) ; 
> 63 ri - address of the compiled format(get edit), or 0 (get List) 
>. Sie 3 r2 - max size of dest 
> 913 3 r5 - data type of dest 
5 119 ; outputs: a : = 
005 120 ; ap - address of the file control block for this character string 
7 ee RS rll - address of the stream block for this get statement 
005 \$6 ; side effects: 
: \$7 : rO-r6 are destroyed 
005 135 pl iiputstrng_ré:: are 
54 D4& 0005 126 . clr r4 zset put indicator 
007 127 stringcom: 
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ie 66-SEP-1984 11:40:16 CPLIRTL.SRCIJPLISTRING.MAR; 1 (1) 
3 a | 0007 1 8 popt r6 ;Save return address 
5E 4 ¢C ies L #fcb_c_strien,sp get room for string file control block 
0000 131 ; initialize file control block 
Q000D 1 ¢ ; 
7 2. Bage 1 mov 3B-38 sset file control block addr 
6¢ 00 7D pig 134 movq #0, fcb_l_next (ap) iclr Link fields 
Oc AC 00820802 8&F 001 135 mov L #<ater a Opened: - jinit file attributes 
001B 136 atr_m_stream!atr_m_bfall! = ; 
0018 tT atr_m_string>, fcB_T wattr(ap) : 
54 DS 0018 138 tstl r4 ~ get or put? 
09 13 OQO1D 139 beql 108 f eql, its put 
OC AC 06 CB OQOTF 140 bisl #atr_v_input,fcb_l _attr (ap) saat input in fcb 
52. 80) = 33C«=—(0023)Ss*141 movzwl (r0)¥,F2 iget , Length of string 
18 11. 0026 146 orb 50$ 
Oc AC 05 CB 0028 143 108: bisl Watery ~output. feb. l attrlap) sset output in fcb 
OC AC 01000000 8F CA Bes 144 bicl #atr_ -" “vcha,f gb. a Tertep) | jassume not char var dest 
53 OA D1 0034 145 cmpl #dat_k_char,r ich ar dest? 
QA 13 0037 146 beql 50$ ~ if eql, yes, cont 
OC AC 01000000 8F C8 0039 147 bisl #atr_m_vcha,fcb_l attr (ap) sset vcha dest 
80 B85 0041 148 tstw (r0)F ~ point past length of viéha 
14 AC 50 DO 0043 149 50S: mov l r0,fcb_l_buf (ap) shee buffer address 
1C A 50 DO 0047 #42150 mov l rd, ay ~~ buf_pt (ap) zsset buffer pointer 
18 Ac 365580) Ss 552-—ié‘E:«Cié‘«iBOC:'S1 add\3 r2 . 0,¥cB_lt_Buf_end(ap) ;set buffer end 
20 A 00 7D 0050 136 movq fcb_q_ 743 Cap jset rfa to 0 
28 AC )6«€608:CC BO SOCi0054~Ss*d15 movw spl ise: version, fcb_w_revision(ap) ;set revision 
0058 154 assume <fcb_w_ “Linesize+2>~ 4! pee ' qposesize 
0058 155 assume <fcb_w_column+2> eq fcb 
2A AC 00 7D 0058 £156 mova #0, fCb_w_linesize(ap) “wet in lines ize, pagesize, col and Line 
2A AC 52 BO OO5SC 157 mov r2,fcb_w stinesize(ap) tset Linesize to ength of string 
32 AC B4& 0060 158 clrw tcb_ w_page(ap) iclr page 
0063 159; 
sod: 199 ; allocate stream block 
5E  00000C08 8F C2 0063 196 subl #str_c_len,sp salloc space for stream block 
5B SE DO O06A 16 mov! sp,rTl- ;set address of stream block 
14 AB 0408 (CB- 9E ppge 166 movab str_l_stack_end(r11),str_l_fld_end(r11) ;set end of field 
ie 166 ; initialize format stack 
ae 167 ; 
08 AB «65D «00 (007 168 mov | fp.str_t l -parentie tt) :set default parent pointer 
04 AB 51 £400 0077 #169 mov | ri,str_ 1) pect address of format pointer 
0c046 CB. 651 = =6—p0 (0078) = «(170 movl ri,str -[ ~spacktelt) opy format pointer to stack 
68 0C046 CB 9E i+! 7) movab str_ L_Stack(r11),str_l _spir ) ;store format stack pointer 
0085 178 3; return to inline code 
0085 174 ; : 
66 17 0085 £175 jmp (r6) preturn 
0087 17s 
0087 17 .end 
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Symbol table 6-SEP=1984 11:40:16 CPLIRTL.SRCJPLISTRING.MAR; 1 (1) 
ATR_M_BFALL = 0002000 STR_L_FP 000004 
ATR-M_OPENED = 20960008 STR-L_FS 09900 
ATR_M_STREAM = 4 444 STR_L_PARENT Q 
ATR_M_STRING = 00800000 STR_L_SP 00000 
ATR_M_VCHA = aaa STR_L_STACK 4448 4 
ATR_V_INPUT = 4444 $8 STR_L_STACK_END 00000408 
ATR_V_OUTPUT = 0000000 

DAT_K_CHAR = QO00000A 

FCB_B_ENVIR 000001C2 

FCB_B_ESA 000001 2E 

FCB_B_EXTRA 0000005D 

FCB_B_FAB OOO00A 

FCB_B_IDEN 0000004 

FCB_B_IDENT_NAM 000000 

FCB_B_NAM 000000F 6 

FCB_B_NUMKCBS 0000003C 

FCB_B_RAB 0000006 

FCB_C_LEN 000001C 

FCB_C_STRLEN 00000034 

FCB_L_ATT 0000000C 

FCB_L_BUF 00000014 

FCB_L_BUF _END 00000018 

FCB_L_BUF _PT 0000001C 

FCB_L_CNDADDR 000001B2 

FCB-L_CONDIT 000001AE 

FCB_L_DTT 00000010 

FCB_L_ERROR 00000008 

FCB_L_KCB 00000038 

FCB_L_NEXT 0000000 

FCB_L_PREVIOUS 00000004 

FCB_L_PRN 0000034 

FCB_Q_RFA 00000020 

FCB_W_COLU 0000002E 

FCB_W_IDENT_LEN 00000040 

FCB_W_LINE 00000030 

FCB_W_LINESIZE 0000002A 

FCB_W_PAGE 00000032 

FCB_W_PAGESIZE 0000002C 

FCB_W_REVISION 00000028 

PLISC-VERSION = 00000003 

PLISGETSTRNG_R6 00000000 RG 02 

PLISPUTSTRNG_R6 00000005 RG 02 

SIZ aww — 0000000 

STK_L_AP 0000000 

STKL-ARG_LIST  FFFFFFF 

STK_L_CND_HND 00000000 

STK"L-CND-LST = FFF FFF 

STK“L“DISPLAY  FFFFFFFC 

STK_L_FP 0000000C 

STK_L_PC 00000010 

STK_L_PSL 00000004 

STK_L_REGS 00000014 

STRINGCOM 00000007 R 02 

STR_B_FIELD 8 000018 

STR_C_LEN 000C08 

STR_L_FLD_END 00000014 

STR_L_FLD_PT 00000010 
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| Psect synopsis 6-SEP=1984 11:40:16 CPLIRTL.SRCIJPLISTRING.MAR; 1 (1) 
g-wmwmme ene en wee eea a & 
: Psect synopsis ! 
$eonnaeerereceone eenes 
1 as 00000000 0.) 00 ( 0.) NOPIC  USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS FFFFFFF ( » 1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
-PLISCODE 0000008 : We. Ot 2.3 PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
ewe eos eee enw eee eee re me 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 13 00:00:00.10 00:00:00.38 
Command processing 70 abs Se Be 00:00:01.95 
Pass 1 he 00:00:0 +46 BS +2888 
Symbol table sort 00:00:00.2 00:00:00. § 
Pass 2 39 BRB 80 + BS 00:00:01.1 
Symbol table output 5 00:00:00.0 00:00:00.07 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 241 00:00:04.64 00:00:10.81 


The working set Limit was 750 pages. ; 

13870 bytes (28 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 185 non-local and 2 local symbols. 
177 source lines were read in Pass 1, producing 10 object records in Pass 2. 

16 pages of virtual memory were used to define 14 macros. 


Macro Library name Macros defined 

“B52 SDUACS : PPL IOTL 0820. IRTRAC ALB; 1 6 
$255$DUA28: (SYS IBISTARLET.MLB;2 5 
TOTALS (all Libraries) 11 


224 GETS were required to define 11 macros. 
There were no errors, warnings or information messages. 


name Allocation PSECT No. Attributes 
eer oa MSRC$:PLISTRING/UPDATE=(ENH$:PLISTRING)+LIBS:PLIRITM | 


